home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 December / 1985-12.d64 / disk unprotect (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  332b  |  13 lines
  1. 100 print"[147]disk unprotected"
  2. 110 open15,8,15:print#15,"i0":open2,8,2,"#"
  3. 120 print#15,"u1:";2;0;18;0:gosub190
  4. 130 print#15,"b-p:";2;2:print#2,chr$(65);:gosub190
  5. 140 print#15,"b-p:";2;166:print#2,chr$(65);:gosub190
  6. 150 print#15,"m-w";chr$(1);chr$(1);chr$(1);chr$(65)
  7. 160 print#15,"m-w";chr$(2);chr$(7);chr$(1);chr$(65)
  8. 170 print#15,"u2:";2;0;18;0:gosub190
  9. 180 close2:print#15,"i0":close15:end
  10. 190 input#15,en,em$,et,es
  11. 200 ifenthenprinten,em$,et,es:stop
  12. 210 return
  13.